home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Reference Guide / C-C++ Interactive Reference Guide.iso / c_ref / clesson / c.dir / 00023_Script_23 < prev    next >
Text File  |  1995-04-05  |  2KB  |  87 lines
  1. on buttonRoll
  2.   
  3.   puppetSprite 6,TRUE
  4.   puppetSprite 7,TRUE
  5.   puppetSprite 8,TRUE
  6.   puppetSprite 9,TRUE
  7.   puppetSprite 10,TRUE
  8.   puppetSprite 11,TRUE
  9.   puppetSprite 13,TRUE
  10.   puppetSprite 14,TRUE
  11.   puppetSprite 15,TRUE
  12.   puppetSprite 16,TRUE
  13.   puppetSprite 17,TRUE
  14.   
  15.   set the immediate of sprite 6 to TRUE
  16.   set the immediate of sprite 7 to TRUE
  17.   set the immediate of sprite 8 to TRUE
  18.   set the immediate of sprite 9 to TRUE
  19.   set the immediate of sprite 10 to TRUE
  20.   set the immediate of sprite 11 to TRUE
  21.   set the immediate of sprite 13 to TRUE
  22.   set the immediate of sprite 14 to TRUE
  23.   set the immediate of sprite 15 to TRUE
  24.   set the immediate of sprite 16 to TRUE
  25.   set the immediate of sprite 17 to TRUE
  26.   
  27.   
  28.   if rollover(6) = TRUE then
  29.     set the castNum of sprite 13 to the number of cast  "paper3.pcx"
  30.   else
  31.     set the castNum of sprite 13 to the number of cast "blank1.pcx"
  32.   end if
  33.   
  34.   if rollover(7) = TRUE then
  35.     set the castNum of sprite 14 to the number of cast "paper4.pcx"
  36.   else
  37.     set the castNum of sprite 14 to the number of cast "blank2.pcx"
  38.   end if
  39.   
  40.   if rollover(8) = TRUE then
  41.     set the castNum of sprite 15 to the number of cast "paper5.pcx"
  42.   else
  43.     set the castNum of sprite 15 to the number of cast "blank3.pcx"
  44.   end if
  45.   
  46.   if rollover(9) = TRUE then
  47.     set the castNum of sprite 16 to the number of cast  "paper6.pcx"
  48.   else
  49.     set the castNum of sprite 16 to the number of cast "blank4.pcx"
  50.   end if
  51.   
  52.   if rollover(10) = TRUE then
  53.     set the castNum of sprite 17 to the number of cast "paper7.pcx"
  54.   else
  55.     set the castNum of sprite 17 to the number of cast "blank5.pcx"
  56.   end if
  57.   
  58.   if rollover(11) = TRUE then
  59.     set the castNum of sprite 11 to the number of cast "Amptr.pct"
  60.   else
  61.     set the castNum of sprite 11 to the number of cast "amph.pct"
  62.   end if
  63.   
  64.   go to the frame
  65. end buttonRoll
  66.  
  67. on button downButton, upButton, whichMovie
  68.   
  69.   
  70.   
  71.   --puppetSound "mdown.wav"
  72.   repeat while the mouseDown
  73.     
  74.     if rollover(the clickOn)= TRUE then
  75.       set the castNum of sprite  (the clickOn) to the number of cast (downButton)
  76.       updateStage
  77.       --    else
  78.       --      set the castNum of sprite  (the clickOn) to the number of cast (upButton)
  79.       --      updateStage
  80.       --      exit
  81.     end if
  82.   end repeat
  83.   --  puppetSound "mup.wav"
  84.   --  go the frame (whichFrame)
  85.   go movie (whichMovie)
  86. end button
  87.